home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gopsrvys.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-01-22  |  1.0 KB  |  33 lines
  1. /*
  2.  *        Name: GOPSRVYS REXX
  3.  *              Gopher Server Search Engine utilizing WISHLP
  4.  *              Original by Yossie Silverman <YOSSIE@UCSFVM>
  5.  *
  6.  *   To create a search item do the following:
  7.  *
  8.  *     1) Create a standard gopher FILELIST of all files to be
  9.  *        searched.  (Only ' fn ft fm title' will work, fm can
  10.  *        (and should) be *
  11.  *     2) GOPGEN INDEX menu
  12.  *     3) Put the name and title of the searched menu
  13.  *        in the menu you want to access it from (parent)
  14.  *     4) Mark the searched menu as Type 7 either
  15.  *        with a NAMES file or in the parent menu.
  16.  */
  17.  
  18. Parse Arg search                            /* retrieve search string */
  19.  
  20. 'PEEKTO'            /*  sync with input  */
  21.  
  22. Address "COMMAND" 'GLOBALV SELECT GOPHERD GET MENU FM'
  23. 'CALLPIPE COMMAND LISTFILE' menu 'GOPINDEX * (NOHEADER' ,
  24.         '| VAR FILESPEC'
  25. If rc ^= 0 Then Exit rc
  26. Parse Var filespec . . fm .
  27. Say "GOPSRVYS: MENU =" menu '-' fm
  28. 'CALLPIPE COMMAND WISHLP' menu 'GOPINDEX' fm search ,
  29.         '| SPEC /      / 1 1-* NEXT | *:'
  30.  
  31. Exit rc
  32.  
  33.